home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / candy.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-21  |  12.4 KB  |  613 lines
  1. 10  SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 12,1:PRINT FNCEN$("CANDY DISH",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 2500:NEXT K
  8. 45  CLS
  9. 50                             '***Zapsound***
  10. 55  FOR A=0 TO 20
  11. 60  OUT 66,A:OUT 66,A
  12. 65  OUT 97,(INP(97) OR 3)
  13. 70  NEXT A
  14. 75  SOUND 37,0
  15. 80  FOR K=1 TO 250:NEXT K
  16. 85                              '***End Zapsound***
  17. 90              '*** start draw ***
  18. 95  LINE(160,30)-(80,100)
  19. 100  LINE-(160,170)
  20. 105  LINE-(240,100)
  21. 110  LINE-(160,30)
  22. 115  FOR K=1 TO 750:NEXT K
  23. 120  GOSUB 30000   '** Textpad **
  24. 125  PRINT FNCEN$("We begin with two folds,",40)
  25. 130  FOR K=1 TO 1500:NEXT K
  26. 135  GOSUB 30000   '** Textpad **
  27. 140  PRINT FNCEN$("which generate these creases,",40)
  28. 145  FOR K=1 TO 750:NEXT K
  29. 150  FOR H=80 TO 240 STEP 2
  30. 155  PSET(H,100)
  31. 160  NEXT H
  32. 165  FOR K=1 TO 750:NEXT K
  33. 170  FOR V=30 TO 170 STEP 2
  34. 175  PSET(160,V)
  35. 180  NEXT V
  36. 185  FOR K=1 TO 750:NEXT K
  37. 190  GOSUB 30000   '** Textpad **
  38. 195  PRINT FNCEN$("Do you remember those folds?",40)
  39. 200  FOR K=1 TO 1500:NEXT K
  40. 205  GOSUB 30000       '*** Textpad ***
  41. 210  PRINT FNCEN$("If not, press <R> for a refresher.",40)
  42. 215  FOR K=1 TO 1000:NEXT K
  43. 220  PRINT FNCEN$("To move on, press <C>.",40)
  44. 225  A$=INKEY$:IF A$="" GOTO 225
  45. 230  IF A$="C" OR A$="c" GOTO 720
  46. 235  IF A$="r" OR A$="R" GOTO 245
  47. 240  GOTO 205
  48. 245  FOR A=0 TO 20
  49. 250  OUT 66,A:OUT 66,A
  50. 255  OUT 97,(INP(97) OR 3)
  51. 260  NEXT A
  52. 265  SOUND 37,0
  53. 270  LINE(81,100)-(239,100),0
  54. 275  LINE(160,31)-(160,169),0
  55. 280  GOSUB 30000   '** Textpad **
  56. 285  PRINT FNCEN$("* Refresher *",40)
  57. 290  FOR K=1 TO 1000:NEXT K
  58. 295  GOSUB 30000   '** Textpad **
  59. 300  PRINT FNCEN$("Fold 1",40)
  60. 305  FOR K=1 TO 750:NEXT K
  61. 310  FOR H=80 TO 240 STEP 2
  62. 315  PSET(H,100)
  63. 320  NEXT H
  64. 325  FOR K=1 TO 750:NEXT K
  65. 330  FOR V=30 TO 100
  66. 335  LINE(80,100)-(160,V)
  67. 340  LINE-(240,100)
  68. 345  LINE(80,100)-(160,V),0
  69. 350  LINE-(240,100),0
  70. 355  NEXT V
  71. 360  FOR V=100 TO 170
  72. 365  LINE(80,100)-(160,V)
  73. 370  LINE-(240,100)
  74. 375  NEXT V
  75. 380  FOR K=1 TO 750:NEXT K
  76. 385  FOR V=170 TO 100 STEP -1
  77. 390  LINE(80,100)-(160,V),0
  78. 395  LINE-(240,100),0
  79. 400  LINE(80,100)-(160,170)
  80. 405  LINE-(240,100)
  81. 410  NEXT V
  82. 415  FOR H=80 TO 240 STEP 2
  83. 420  PSET(H,100)
  84. 425  NEXT H
  85. 430  FOR V=90 TO 30 STEP -1
  86. 435  LINE(80,100)-(160,V)
  87. 440  LINE-(240,100)
  88. 445  LINE(80,100)-(160,V),0
  89. 450  LINE-(240,100),0
  90. 455  NEXT V
  91. 460  LINE(80,100)-(160,30)
  92. 465  LINE-(240,100)
  93. 470  FOR H=82 TO 238 STEP 2
  94. 475  PSET(H,100),0
  95. 480  NEXT H
  96. 485  FOR K=1 TO 750:NEXT K
  97. 490  GOSUB 30000   '** Textpad **
  98. 495  PRINT FNCEN$("Fold 2",40)
  99. 500  FOR K=1 TO 1500:NEXT K
  100. 505  FOR V=30 TO 170 STEP 2
  101. 510  PSET(160,V)
  102. 515  NEXT V
  103. 520  FOR K=1 TO 750:NEXT K
  104. 525  FOR H=80 TO 160
  105. 530  LINE(160,30)-(H,100)
  106. 535  LINE-(160,170)
  107. 540  LINE(160,30)-(H,100),0
  108. 545  LINE-(160,170),0
  109. 550  NEXT H
  110. 555  FOR H=160 TO 240
  111. 560  LINE(160,30)-(H,100)
  112. 565  LINE-(160,170)
  113. 570  NEXT H
  114. 575  FOR K=1 TO 750:NEXT K
  115. 580  FOR H=240 TO 160 STEP -1
  116. 585  LINE(160,30)-(H,100),0
  117. 590  LINE-(160,170),0
  118. 595  LINE(160,30)-(240,100)
  119. 600  LINE-(160,170)
  120. 605  NEXT H
  121. 610  FOR V=30 TO 170 STEP 2
  122. 615  PSET(160,V)
  123. 620  NEXT V
  124. 625  FOR H=150 TO 80 STEP -1
  125. 630  LINE(160,30)-(H,100)
  126. 635  LINE-(160,170)
  127. 640  LINE(160,30)-(H,100),0
  128. 645  LINE-(160,170),0
  129. 650  NEXT H
  130. 655  LINE(160,30)-(80,100)
  131. 660  LINE-(160,170)
  132. 665  FOR V=30 TO 170 STEP 2
  133. 670  PSET(160,V)
  134. 675  NEXT V
  135. 680  FOR H=80 TO 240 STEP 2
  136. 685  PSET(H,100)
  137. 690  NEXT H
  138. 695  FOR K=1 TO 750:NEXT K
  139. 700  GOSUB 30000   '*** Textpad ***
  140. 705  PRINT FNCEN$("To move on, press <C>.",40)
  141. 710  A$=INKEY$:IF A$="" GOTO 710
  142. 715  IF A$="C" OR A$="c" GOTO 720
  143. 720  GOSUB 30000   '** Textpad **
  144. 725  PRINT FNCEN$("Our next fold takes this corner",40)
  145. 730  FOR K=1 TO 750:NEXT K
  146. 735  FOR K=1 TO 15
  147. 740  PSET(248,100):DRAW"E5D4R7D2L7D4H5"
  148. 745  PAINT(254,100)
  149. 750  FOR M=1 TO 25:NEXT M
  150. 755  CIRCLE(254,100),7,0
  151. 760  PAINT(254,100),0
  152. 765  NEXT K
  153. 770  FOR K=1 TO 750:NEXT K
  154. 775  GOSUB 30000   '** Textpad **
  155. 780  PRINT FNCEN$("over to this center point",40)
  156. 785  FOR K=1 TO 750:NEXT K
  157. 790  FOR K=1 TO 15
  158. 795  CIRCLE(160,100),5
  159. 800  LINE(158,100)-(162,100)
  160. 805  LINE(160,98)-(160,102)
  161. 810  FOR M=1 TO 25:NEXT M
  162. 815  CIRCLE(160,100),5,0
  163. 820  LINE(158,100)-(162,100),0
  164. 825  LINE(160,98)-(160,102),0
  165. 830  NEXT K
  166. 835  PSET(158,100):PSET(162,100)
  167. 840  FOR V=96 TO 104 STEP 2
  168. 845  PSET(160,V)
  169. 850  NEXT V
  170. 855  FOR K=1 TO 750:NEXT K
  171. 860  GOSUB 30000   '** Textpad **
  172. 865  PRINT FNCEN$("across this line,",40)
  173. 870  FOR K=1 TO 750:NEXT K
  174. 875  FOR V=65 TO 135 STEP 2
  175. 880  PSET(200,V)
  176. 885  NEXT V
  177. 890  FOR K=1 TO 750:NEXT K
  178. 895  GOSUB 30000   '** Textpad **
  179. 900  PRINT FNCEN$("SO!",40)
  180. 905  FOR K=1 TO 750:NEXT K
  181. 910  FOR H=240 TO 200 STEP -1
  182. 915  LINE(200,65)-(H,100)
  183. 920  LINE-(200,135)
  184. 925  LINE(200,65)-(H,100),0
  185. 930  LINE-(200,135),0
  186. 935  NEXT H
  187. 940  FOR H=200 TO 160 STEP -1
  188. 945  LINE(200,65)-(H,100)
  189. 950  LINE-(200,135)
  190. 955  NEXT H
  191. 960  FOR K=1 TO 750:NEXT K
  192. 965  GOSUB 30000   '** Textpad **
  193. 970  PRINT FNCEN$("and repeat with the other corners.",40)
  194. 975  FOR K=1 TO 750:NEXT K
  195. 980  FOR V=65 TO 135 STEP 2
  196. 985  PSET(120,V)
  197. 990  NEXT V
  198. 995  FOR K=1 TO 750:NEXT K
  199. 1000  FOR H=80 TO 120
  200. 1005  LINE(120,65)-(H,100)
  201. 1010  LINE-(120,135)
  202. 1015  LINE(120,65)-(H,100),0
  203. 1020  LINE-(120,135),0
  204. 1025  NEXT H
  205. 1030  FOR H=120 TO 160
  206. 1035  LINE(120,65)-(H,100)
  207. 1040  LINE-(120,135)
  208. 1045  NEXT H
  209. 1050  FOR K=1 TO 750:NEXT K
  210. 1055  FOR H=120 TO 200 STEP 2
  211. 1060  PSET(H,65)
  212. 1065  NEXT H
  213. 1070  FOR K=1 TO 750:NEXT K
  214. 1075  FOR V=30 TO 65
  215. 1080  LINE(120,65)-(160,V)
  216. 1085  LINE-(200,65)
  217. 1090  LINE(120,65)-(160,V),0
  218. 1095  LINE-(200,65),0
  219. 1100  NEXT V
  220. 1105  FOR V=65 TO 100
  221. 1110  LINE(120,65)-(160,V)
  222. 1115  LINE-(200,65)
  223. 1120  NEXT V
  224. 1125  LINE(120,65)-(160,100),0
  225. 1130  LINE-(200,65),0
  226. 1135  FOR K=1 TO 750:NEXT K
  227. 1140  FOR H=120 TO 200 STEP 2
  228. 1145  PSET(H,135)
  229. 1150  NEXT H
  230. 1155  FOR K=1 TO 750:NEXT K
  231. 1160  FOR V=170 TO 135 STEP -1
  232. 1165  LINE(120,135)-(160,V)
  233. 1170  LINE-(200,135)
  234. 1175  LINE(120,135)-(160,V),0
  235. 1180  LINE-(200,135),0
  236. 1185  NEXT V
  237. 1190  FOR V=135 TO 100 STEP -1
  238. 1195  LINE(120,135)-(160,V)
  239. 1200  LINE-(200,135)
  240. 1205  NEXT V
  241. 1210  LINE(120,135)-(160,100),0
  242. 1215  LINE-(200,135),0
  243. 1220  FOR K=1 TO 750:NEXT K
  244. 1225  GOSUB 30000   '*** Textpad ***
  245. 1230  PRINT FNCEN$("Press <C> to continue.",40)
  246. 1235  A$=INKEY$:IF A$="" GOTO 1235
  247. 1240  IF A$="C" OR A$="c" GOTO 1250
  248. 1245  GOTO 1225
  249. 1250  GOSUB 30000   '** Textpad **
  250. 1255  PRINT FNCEN$("Next, we turn our figure over,",40)
  251. 1260  FOR K=1 TO 1500:NEXT K
  252. 1265  GOSUB 30000   '** Textpad **
  253. 1270  PRINT FNCEN$("changing its scale and repositioning it,",40)
  254. 1275  FOR K=1 TO 1500:NEXT K
  255. 1280  GOSUB 30000   '** Textpad **
  256. 1285  PRINT FNCEN$("SO!",40)
  257. 1290  FOR K=1 TO 750:NEXT K
  258. 1295  FOR A=0 TO 20
  259. 1300  OUT 66,A:OUT 66,A
  260. 1305  OUT 97,(INP(97) OR 3)
  261. 1310  NEXT A
  262. 1315  SOUND 37,0
  263. 1320  CLS
  264. 1325  LINE(160,30)-(80,100)
  265. 1330  LINE-(160,170)
  266. 1335  LINE-(240,100)
  267. 1340  LINE-(160,30)
  268. 1345  PAINT(160,100)
  269. 1350  LINE(120,65)-(200,135),0
  270. 1355  LINE(120,135)-(200,65),0
  271. 1360  FOR K=1 TO 750:NEXT K
  272. 1365  GOSUB 30000   '** Textpad **
  273. 1370  PRINT FNCEN$("and again take our corners",40)
  274. 1375  FOR K=1 TO 1500:NEXT K
  275. 1380  GOSUB 30000   '** Textpad **
  276. 1385  PRINT FNCEN$("and fold them into the center,",40)
  277. 1390  FOR K=1 TO 1500:NEXT K
  278. 1395  GOSUB 30000   '** Textpad **
  279. 1400  PRINT FNCEN$("SO!",40)
  280. 1405  FOR K=1 TO 750:NEXT K
  281. 1410  FOR V=65 TO 135 STEP 2
  282. 1415  PSET(200,V),0
  283. 1420  NEXT V
  284. 1425  FOR K=1 TO 750:NEXT K
  285. 1430  FOR H=240 TO 200 STEP -1
  286. 1435  LINE(200,65)-(H,100),0
  287. 1440  LINE-(200,135),0
  288. 1445  NEXT H
  289. 1450  FOR H=200 TO 160 STEP -1
  290. 1455  LINE(200,65)-(H,100),0
  291. 1460  LINE-(200,135),0
  292. 1465  LINE(200,65)-(H,100)
  293. 1470  LINE-(200,135)
  294. 1475  PSET(H,100),0
  295. 1480  NEXT H
  296. 1485  LINE(200,65)-(160,100),0
  297. 1490  LINE-(200,135),0
  298. 1495  FOR K=1 TO 750:NEXT K
  299. 1500  FOR V=65 TO 135 STEP 2
  300. 1505  PSET(120,V),0
  301. 1510  NEXT V
  302. 1515  FOR K=1 TO 750:NEXT K
  303. 1520  FOR H=80 TO 120
  304. 1525  LINE(120,65)-(H,100),0
  305. 1530  LINE-(120,135),0
  306. 1535  NEXT H
  307. 1540  FOR H=120 TO 160
  308. 1545  LINE(120,65)-(H,100),0
  309. 1550  LINE-(120,135),0
  310. 1555  LINE(120,65)-(H,100)
  311. 1560  LINE-(120,135)
  312. 1565  PSET(H,100),0
  313. 1570  NEXT H
  314. 1575  LINE(120,65)-(160,100),0
  315. 1580  LINE-(120,135),0
  316. 1585  FOR K=1 TO 750:NEXT K
  317. 1590  FOR H=120 TO 200 STEP 2
  318. 1595  PSET(H,65),0
  319. 1600  NEXT H
  320. 1605  FOR K=1 TO 750:NEXT K
  321. 1610  FOR V=30 TO 65
  322. 1615  LINE(120,65)-(160,V),0
  323. 1620  LINE-(200,65),0
  324. 1625  NEXT V
  325. 1630  FOR V=65 TO 100
  326. 1635  LINE(120,65)-(160,V),0
  327. 1640  LINE-(200,65),0
  328. 1645  LINE(120,65)-(160,V)
  329. 1650  LINE-(200,65)
  330. 1655  PSET(160,V),0
  331. 1660  NEXT V
  332. 1665  LINE(120,65)-(160,100),0
  333. 1670  LINE-(200,65),0
  334. 1675  FOR K=1 TO 750:NEXT K
  335. 1680  FOR H=120 TO 200 STEP 2
  336. 1685  PSET(H,135),0
  337. 1690  NEXT H
  338. 1695  FOR K=1 TO 750:NEXT K
  339. 1700  FOR V=170 TO 135 STEP -1
  340. 1705  LINE(120,135)-(160,V),0
  341. 1710  LINE-(200,135),0
  342. 1715  NEXT V
  343. 1720  FOR V=135 TO 100 STEP -1
  344. 1725  LINE(120,135)-(160,V),0
  345. 1730  LINE-(200,135),0
  346. 1735  LINE(120,135)-(160,V)
  347. 1740  LINE-(200,135)
  348. 1745  PSET(160,V),0
  349. 1750  NEXT V
  350. 1755  LINE(120,135)-(160,100),0
  351. 1760  LINE-(200,135),0
  352. 1765  FOR K=1 TO 750:NEXT K
  353. 1770  GOSUB 30000   '*** Textpad ***
  354. 1775  PRINT FNCEN$("Press <C> to continue.",40)
  355. 1780  A$=INKEY$:IF A$="" GOTO 1780
  356. 1785  IF A$="C" OR A$="c" GOTO 1795
  357. 1790  GOTO 1770
  358. 1795  GOSUB 30000   '** Textpad **
  359. 1800  PRINT FNCEN$("Now, the upper part of our figure",40)
  360. 1805  FOR K=1 TO 1500:NEXT K
  361. 1810  FOR K=1 TO 15
  362. 1815  LINE(120,100)-(120,65),0
  363. 1820  LINE-(200,65),0
  364. 1825  LINE-(200,100),0
  365. 1830  FOR M=0 TO 25:NEXT M
  366. 1835  LINE(120,100)-(120,65)
  367. 1840  LINE-(200,65)
  368. 1845  LINE-(200,100)
  369. 1850  NEXT K
  370. 1855  PSET(120,65),0:PSET(160,65),0:PSET(200,65),0
  371. 1860  PSET(120,100),0:PSET(200,100),0
  372. 1865  FOR K=1 TO 750:NEXT K
  373. 1870  GOSUB 30000   '** Textpad **
  374. 1875  PRINT FNCEN$("folds forward onto the lower part,",40)
  375. 1880  FOR K=1 TO 750:NEXT K
  376. 1885  FOR K=1 TO 15
  377. 1890  LINE(120,100)-(120,135),0
  378. 1895  LINE-(200,135),0
  379. 1900  LINE-(200,100),0
  380. 1905  FOR M=1 TO 25:NEXT M
  381. 1910  LINE(120,100)-(120,135)
  382. 1915  LINE-(200,135)
  383. 1920  LINE-(200,100)
  384. 1925  NEXT K
  385. 1930  PSET(120,135),0:PSET(160,135),0:PSET(200,135),0
  386. 1935  PSET(120,100),0:PSET(200,100),0
  387. 1940  FOR K=1 TO 750:NEXT K
  388. 1945  GOSUB 30000   '** Textpad **
  389. 1950  PRINT FNCEN$("SO!",40)
  390. 1955  FOR K=1 TO 750:NEXT K
  391. 1960  FOR V=65 TO 100
  392. 1965  LINE(120,V)-(160,100),0
  393. 1970  LINE-(200,V),0
  394. 1975  LINE(120,V)-(160,100)
  395. 1980  LINE-(200,V)
  396. 1985  LINE(120,100)-(120,V),0
  397. 1990  LINE-(200,V),0
  398. 1995  LINE-(200,100),0
  399. 2000  NEXT V
  400. 2005  FOR V=100 TO 135
  401. 2010  LINE(120,100)-(120,V),0
  402. 2015  LINE-(200,V),0
  403. 2020  LINE-(200,100),0
  404. 2025  LINE(120,100)-(120,V)
  405. 2030  LINE-(200,V)
  406. 2035  LINE-(200,100)
  407. 2040  LINE(120,V)-(160,100),0
  408. 2045  LINE-(200,V),0
  409. 2050  LINE(120,V)-(160,100)
  410. 2055  LINE-(200,V)
  411. 2060  PSET(160,V),0
  412. 2065  NEXT V
  413. 2070  LINE(120,135)-(160,100),0
  414. 2075  LINE-(200,135),0
  415. 2080  FOR K=1 TO 750:NEXT K
  416. 2085  GOSUB 30000   '*** Textpad ***
  417. 2090  PRINT FNCEN$("Press <C> to continue.",40)
  418. 2095  A$=INKEY$:IF A$="" GOTO 2095
  419. 2100  IF A$="C" OR A$="c" GOTO 2110
  420. 2105  GOTO 2085
  421. 2110  GOSUB 30000   '** Textpad **
  422. 2115  PRINT FNCEN$("Let's now take a good look",40)
  423. 2120  FOR K=1 TO 1500:NEXT K
  424. 2125  PRINT FNCEN$("at what we have before us.",40)
  425. 2130  FOR K=1 TO 1500:NEXT K
  426. 2135  GOSUB 30000   '** Textpad **
  427. 2140  PRINT FNCEN$("We have two flaps in front,",40)
  428. 2145  FOR K=1 TO 1500:NEXT K
  429. 2150  LINE(155,100)-(165,105),0,BF
  430. 2155  LINE(155,100)-(160,105)
  431. 2160  LINE-(165,100)
  432. 2165  LINE(120,99)-(200,99)
  433. 2170  FOR K=1 TO 750:NEXT K
  434. 2175  GOSUB 30000   '** Textpad **
  435. 2180  PRINT FNCEN$("and of course, two on the hidden side",40)
  436. 2185  FOR K=1 TO 1500:NEXT K
  437. 2190  'GOSUB 30000   '** Textpad **
  438. 2195  PRINT FNCEN$("which we can't see,",40)
  439. 2200  FOR K=1 TO 1500:NEXT K
  440. 2205  GOSUB 30000   '** Textpad **
  441. 2210  PRINT FNCEN$("and if we pull those flaps out,",40)
  442. 2215  FOR K=1 TO 1500:NEXT K
  443. 2220  GOSUB 30000   '** Textpad **
  444. 2225  PRINT FNCEN$("SO!",40)
  445. 2230  FOR K=1 TO 750:NEXT K
  446. 2235  LINE(120,99)-(200,99),0
  447. 2240  FOR Q=0 TO 10
  448. 2245  LINE(120,100)-(160-Q,100+Q),0
  449. 2250  LINE-(160,135),0
  450. 2255  PSET(160-Q,100+Q)
  451. 2260  LINE(120,100)-(160,100)
  452. 2265  LINE(149,109)-(151,106),0
  453. 2270  LINE(151,111)-(155,108),0
  454. 2275  PSET(154,113),0:PSET(153,109),0
  455. 2280  NEXT Q
  456. 2285  FOR Q=0 TO 10
  457. 2290  LINE(200,100)-(160+Q,100+Q),0
  458. 2295  LINE-(160,135),0
  459. 2300  PSET(160+Q,100+Q)
  460. 2305  LINE(200,100)-(160,100)
  461. 2310  LINE(171,109)-(169,106),0
  462. 2315  LINE(169,111)-(165,108),0
  463. 2320  PSET(166,113),0:PSET(167,109),0
  464. 2325  FOR V=100 TO 135 STEP 2
  465. 2330  PSET(160,V)
  466. 2335  NEXT V
  467. 2340  NEXT Q
  468. 2345  GOSUB 30000   '** Textpad **
  469. 2350  PRINT FNCEN$("we have two pockets in front",40)
  470. 2355  FOR K=1 TO 750:NEXT K
  471. 2360  FOR K=1 TO 15
  472. 2365  PSET(140,92):DRAW"E5L4U7L2D7L4F5"
  473. 2370  PAINT(140,86)
  474. 2375  PSET(180,92):DRAW"E5L4U7L2D7L4F5"
  475. 2380  PAINT(180,86)
  476. 2385  CIRCLE(140,86),7,0
  477. 2390  PAINT(140,86),0
  478. 2395  CIRCLE(180,86),7,0
  479. 2400  PAINT(180,86),0
  480. 2405  NEXT K
  481. 2410  FOR K=1 TO 750:NEXT K
  482. 2415  GOSUB 30000   '** Textpad **
  483. 2420  PRINT FNCEN$("and two on the hidden side.",40)
  484. 2425  FOR K=1 TO 750:NEXT K
  485. 2430  FOR K=1 TO 15
  486. 2435  PSET(140,92),1:DRAW"E5L4U7L2D7L4F5"
  487. 2440  PAINT(140,86),1
  488. 2445  PSET(180,92),1:DRAW"E5L4U7L2D7L4F5
  489. 2450  PAINT(180,86),1
  490. 2455  CIRCLE(140,86),7,0
  491. 2460  PAINT(140,86),0
  492. 2465  CIRCLE(180,86),7,0
  493. 2470  PAINT(180,86),0
  494. 2475  NEXT K
  495. 2480  FOR K=1 TO 750:NEXT K
  496. 2485  GOSUB 30000   '** Textpad **
  497. 2490  PRINT FNCEN$("And for our last operation,",40)
  498. 2495  FOR K=1 TO 1500:NEXT K
  499. 2500  GOSUB 30000   '** Textpad **
  500. 2505  PRINT FNCEN$("we put our right thumb into this pocket,",40)
  501. 2510  FOR K=1 TO 750:NEXT K
  502. 2515  PSET(140,92):DRAW"E5L4U7L2D7L4F5"
  503. 2520  PAINT(140,86)
  504. 2525  FOR K=1 TO 1500:NEXT K
  505. 2530  CIRCLE(140,86),7,0
  506. 2535  PAINT(140,86),0
  507. 2540  FOR K=1 TO 750:NEXT K
  508. 2545  GOSUB 30000   '** Textpad **
  509. 2550  PRINT FNCEN$("our pointer into this one,",40)
  510. 2555  FOR K=1 TO 750:NEXT K
  511. 2560  PSET(140,92),1:DRAW"E5L4U7L2D7L4F5"
  512. 2565  PAINT(140,86),1
  513. 2570  FOR K=1 TO 1500:NEXT K
  514. 2575  CIRCLE(140,86),7,0
  515. 2580  PAINT(140,86),0
  516. 2585  FOR K=1 TO 750:NEXT K
  517. 2590  GOSUB 30000   '** Textpad **
  518. 2595  PRINT FNCEN$("our middle finger into this,",40)
  519. 2600  FOR K=1 TO 750:NEXT K
  520. 2605  PSET(180,92),1:DRAW"E5L4U7L2D7L4F5"
  521. 2610  PAINT(180,86),1
  522. 2615  FOR K=1 TO 1500:NEXT K
  523. 2620  CIRCLE(180,86),7,0
  524. 2625  PAINT(180,86),0
  525. 2630  FOR K=1 TO 750:NEXT K
  526. 2635  GOSUB 30000   '** Textpad **
  527. 2640  PRINT FNCEN$("and our ring finger into this last one,",40)
  528. 2645  FOR K=1 TO 750:NEXT K
  529. 2650  PSET(180,92):DRAW"E5L4U7L2D7L4F5"
  530. 2655  PAINT(180,86)
  531. 2660  FOR K=1 TO 1500:NEXT K
  532. 2665  CIRCLE(180,86),7,0
  533. 2670  PAINT(180,86),0
  534. 2675  FOR K=1 TO 750:NEXT K
  535. 2680  GOSUB 30000       '*** Textpad ***
  536. 2685  PRINT FNCEN$("To review those directions, press <R>.",40)
  537. 2690  FOR K=1 TO 1000:NEXT K
  538. 2695  PRINT FNCEN$("To continue, press <C>.",40)
  539. 2700  A$=INKEY$:IF A$="" GOTO 2700
  540. 2705  IF A$="r" OR A$="R" GOTO 2720
  541. 2710  IF A$="c" OR A$="C" GOTO 2765
  542. 2715  GOTO 2685
  543. 2720  FOR A=0 TO 20
  544. 2725  OUT 66,A:OUT 66,A
  545. 2730  OUT 97,(INP(97) OR 3)
  546. 2735  NEXT A
  547. 2740  SOUND 37,0
  548. 2745  GOSUB 30000   '** Textpad **
  549. 2750  PRINT FNCEN$("* Review *",40)
  550. 2755  FOR K=1 TO 1500:NEXT K
  551. 2760  GOTO 2485
  552. 2765  GOSUB 30000   '** Textpad **
  553. 2770  PRINT FNCEN$("and SQUEEZE!",40)
  554. 2775  FOR K=1 TO 750:NEXT K
  555. 2780  FOR A=0 TO 20
  556. 2785  OUT 66,A:OUT 66,A
  557. 2790  OUT 97,(INP(97) OR 3)
  558. 2795  NEXT A
  559. 2800  SOUND 37,0
  560. 2805  CLS
  561. 2810  LINE(160,70)-(115,110)
  562. 2815  LINE-(160,150)
  563. 2820  LINE-(205,110)
  564. 2825  LINE-(160,70)
  565. 2830  PAINT(160,100)
  566. 2835  LINE(115,110)-(100,60)
  567. 2840  LINE-(110,140)
  568. 2845  LINE-(130,120)
  569. 2850  PAINT(115,120)
  570. 2855  LINE(205,110)-(220,60)
  571. 2860  LINE-(210,140)
  572. 2865  LINE-(190,120)
  573. 2870  PAINT(205,120)
  574. 2875  LINE(115,110)-(100,60)
  575. 2880  LINE-(120,90)
  576. 2885  LINE-(160,55)
  577. 2890  LINE-(200,90)
  578. 2895  LINE-(220,60)
  579. 2900  LINE-(205,110)
  580. 2905  LINE(115,110)-(120,90)
  581. 2910  LINE-(160,75)
  582. 2915  LINE(205,110)-(200,90)
  583. 2920  LINE-(160,75)
  584. 2925  LINE(160,55)-(160,70)
  585. 2930  LINE(110,140)-(115,110),0
  586. 2935  LINE(160,71)-(160,150),0
  587. 2940  LINE(210,140)-(205,110),0
  588. 2945  FOR K=1 TO 750:NEXT K
  589. 2950  GOSUB 30000   '** Textpad **
  590. 2955  PRINT FNCEN$("And there we have it!",40)
  591. 2960  FOR K=1 TO 1500:NEXT K
  592. 2965  GOSUB 30000   '** Textpad **
  593. 2970  PRINT FNCEN$("CANDY DISH",40)
  594. 2975  FOR K=1 TO 1500:NEXT K
  595. 2980  GOSUB 30000                '*** Textpad ***
  596. 2985  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  597. 2990  PRINT FNCEN$("      <2> - To repeat CANDY DISH.",40)
  598. 2995  PRINT FNCEN$("      <3> - To exit from program.",40)
  599. 3000  E$=INPUT$(1)
  600. 3005  IF E$<"1" OR E$>"3" GOTO 3000
  601. 3010  SEL=VAL(E$)
  602. 3015  COMMON SEL
  603. 3020  CLS
  604. 3025  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  605. 3026  LINE(70,75)-(250,125),3,B
  606. 3030  ON SEL GOTO 3035,3040,3045
  607. 3035  CHAIN"a:main"
  608. 3040  CHAIN"a:candy
  609. 3045  CHAIN"a:end"
  610. 30000  LOCATE 1,1
  611. 30010  PRINT"                                                                                                                        "
  612. 30020  LOCATE 1,1:RETURN
  613.